home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / start.exe / start.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1995-03-15  |  510 b   |  19 lines
  1. on startMovie
  2.   global fh
  3.   set the searchCurrentFolder to 0
  4.   if the machineType = 256 then
  5.     set file to FileIO(mnew, "read", "config.cfg")
  6.     if objectp(file) then
  7.       set trang to word 1 of file(mReadLine)
  8.       set the searchPath to [the pathName, trang & ":\bugs\"]
  9.       file(mdispose)
  10.     else
  11.       set the searchPath to [the pathName & "bugs\"]
  12.     end if
  13.     exit
  14.   else
  15.     set the searchPath to [the pathName & "bugs:", "How Many Bugs?:bugs:"]
  16.   end if
  17.   set the searchCurrentFolder to 0
  18. end
  19.